CAAPhysicalJupiter_Calculate <-
function(JD){
.Call("CAAPhysicalJupiter_Calculate", JD)
}
